max v2;
#N vpatcher 58 60 792 772;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 406 332 54 9109513 pack s 0;
#P newex 450 309 79 9109513 scale 0 127 -2 8;
#P newex 406 286 54 9109513 unpack s 0;
#P newex 406 355 79 9109513 route S1 S2 S3;
#P newex 406 263 88 9109513 r scrlt.midi.pcr.ctlin;
#P newex 383 470 78 9109513 s scrlt.pcr.notein;
#P newex 383 240 58 9109513 r $0.kbd.out;
#P newex 53 361 60 9109513 s $0.kbd.out;
#P window setfont "Sans Serif" 14.;
#P comment 53 121 17 9109518 C;
#P comment 53 88 17 9109518 B;
#P window setfont "Sans Serif" 9.;
#P newex 452 424 183 9109513 pattr kbd.oct.c @bindto kbd.oct.c::octave;
#X prestore 1 0 0;
#P objectname kbd.oct.c[1];
#P newex 429 401 183 9109513 pattr kbd.oct.b @bindto kbd.oct.b::octave;
#X prestore 1 0 8;
#P objectname kbd.oct.b[1];
#P newex 406 378 183 9109513 pattr kbd.oct.a @bindto kbd.oct.a::octave;
#X prestore 1 0 0;
#P objectname kbd.oct.a[1];
#P bpatcher 71 121 133 30 0 0 scrlt.midi.pcr.octave.mxt 4;
#P objectname kbd.oct.c;
#P bpatcher 71 88 133 30 0 0 scrlt.midi.pcr.octave.mxt 4;
#P objectname kbd.oct.b;
#P bpatcher 71 55 133 30 0 0 scrlt.midi.pcr.octave.mxt 4;
#P objectname kbd.oct.a;
#P newex 53 239 28 9109513 pack;
#P newex 53 214 46 9109513 notein;
#P newex 53 189 142 9109513 loadmess port "EDIROL PCR 1";
#P newex 444 145 223 9109513 route S1 S2 S3 S4 S5 S6 S7 S8;
#P newex 445 123 88 9109513 r scrlt.midi.pcr.ctlin;
#P user uslider 626 171 25 19 128 1 0 0;
#P noclick;
#P user uslider 600 171 25 19 128 1 0 0;
#P noclick;
#P user uslider 574 171 25 19 128 1 0 0;
#P noclick;
#P user uslider 548 171 25 19 128 1 0 0;
#P noclick;
#P user uslider 522 171 25 19 128 1 0 0;
#P noclick;
#P user uslider 496 171 25 19 128 1 0 0;
#P noclick;
#P user uslider 470 171 25 19 128 1 0 0;
#P noclick;
#P user uslider 444 171 25 19 128 1 0 0;
#P noclick;
#P newex 440 65 221 9109513 route R1 R2 R3 R4 R5 R6 R7 R8;
#P newex 441 43 88 9109513 r scrlt.midi.pcr.ctlin;
#P user dial 622 88 25 25 128 1 0 0 223 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P noclick;
#P user dial 596 88 25 25 128 1 0 0 223 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P noclick;
#P user dial 570 88 25 25 128 1 0 0 223 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P noclick;
#P user dial 544 88 25 25 128 1 0 0 223 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P noclick;
#P user dial 518 88 25 25 128 1 0 0 223 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P noclick;
#P user dial 492 88 25 25 128 1 0 0 223 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P noclick;
#P user dial 466 88 25 25 128 1 0 0 223 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P noclick;
#P user dial 440 88 25 25 128 1 0 0 223 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P noclick;
#P bpatcher 53 266 217 70 0 0 scrlt.midi.pcr.kbd.mxt 4;
#P comment 66 339 115 9109513 group pitch(0-11) velocity;
#N vpatcher 25 70 625 470;
#P window setfont "Sans Serif" 9.;
#P newex 204 119 90 9109513 s scrlt.midi.pcr.ctlin;
#P newex 204 96 27 9109513 _ S2;
#N vpatcher 25 70 625 470;
#P outlet 146 100 15 0;
#P inlet 223 35 15 0;
#P inlet 193 35 15 0;
#P inlet 163 35 15 0;
#P inlet 133 35 15 0;
#P inlet 103 35 15 0;
#P inlet 73 35 15 0;
#P inlet 43 35 15 0;
#P connect 6 0 7 0;
#P connect 5 0 7 0;
#P connect 4 0 7 0;
#P connect 3 0 7 0;
#P connect 2 0 7 0;
#P connect 1 0 7 0;
#P connect 0 0 7 0;
#P pop;
#P newobj 50 291 215 9109513 p V;
#P newex 254 267 27 9109513 _ S8;
#P newex 220 267 27 9109513 _ S7;
#P newex 186 267 27 9109513 _ S6;
#P newex 152 267 27 9109513 _ S5;
#P newex 118 267 27 9109513 _ S4;
#P newex 84 267 27 9109513 _ S3;
#P newex 50 267 27 9109513 _ S1;
#P newex 50 313 90 9109513 s scrlt.midi.pcr.ctlin;
#P newex 50 241 250 9109513 route 5 73 75 72 93 91 7;
#P newex 204 50 142 9109513 loadmess port "EDIROL PCR 1";
#P newex 204 73 38 9109513 touchin;
#N vpatcher 25 70 625 470;
#P outlet 146 100 15 0;
#P inlet 239 35 15 0;
#P inlet 211 35 15 0;
#P inlet 183 35 15 0;
#P inlet 155 35 15 0;
#P inlet 127 35 15 0;
#P inlet 99 35 15 0;
#P inlet 71 35 15 0;
#P inlet 43 35 15 0;
#P connect 0 0 8 0;
#P connect 1 0 8 0;
#P connect 2 0 8 0;
#P connect 3 0 8 0;
#P connect 4 0 8 0;
#P connect 5 0 8 0;
#P connect 6 0 8 0;
#P connect 7 0 8 0;
#P pop;
#P newobj 50 194 215 9109513 p V;
#P newex 253 170 28 9109513 _ R8;
#P newex 224 170 28 9109513 _ R7;
#P newex 195 170 28 9109513 _ R6;
#P newex 166 170 28 9109513 _ R5;
#P newex 137 170 28 9109513 _ R4;
#P newex 108 170 28 9109513 _ R3;
#P newex 79 170 28 9109513 _ R2;
#P newex 50 170 28 9109513 _ R1;
#P newex 50 216 90 9109513 s scrlt.midi.pcr.ctlin;
#P newex 50 146 247 9109513 route 74 71 76 77 78 6 38 10;
#P newex 50 122 40 9109513 rotate 1;
#P newex 50 98 28 9109513 pack;
#P newex 50 50 142 9109513 loadmess port "EDIROL PCR 1";
#P newex 50 74 46 9109513 ctlin;
#P comment 94 124 34 9109513 ctl val;
#P connect 2 0 1 0;
#P connect 1 0 3 0;
#P connect 3 0 4 0;
#P connect 4 0 5 0;
#P connect 5 0 7 0;
#P connect 7 0 15 0;
#P connect 15 0 6 0;
#P connect 5 8 18 0;
#P connect 18 0 20 0;
#P connect 20 0 27 0;
#P connect 27 0 19 0;
#P connect 1 1 3 1;
#P connect 5 1 8 0;
#P connect 8 0 15 1;
#P connect 18 1 21 0;
#P connect 21 0 27 1;
#P connect 5 2 9 0;
#P connect 9 0 15 2;
#P connect 18 2 22 0;
#P connect 22 0 27 2;
#P connect 5 3 10 0;
#P connect 10 0 15 3;
#P connect 18 3 23 0;
#P connect 23 0 27 3;
#P connect 5 4 11 0;
#P connect 11 0 15 4;
#P connect 18 4 24 0;
#P connect 24 0 27 4;
#P connect 5 5 12 0;
#P connect 12 0 15 5;
#P connect 17 0 16 0;
#P connect 16 0 28 0;
#P connect 28 0 29 0;
#P connect 18 5 25 0;
#P connect 25 0 27 5;
#P connect 5 6 13 0;
#P connect 13 0 15 6;
#P connect 5 7 14 0;
#P connect 14 0 15 7;
#P connect 18 6 26 0;
#P connect 26 0 27 6;
#P pop;
#P newobj 321 68 107 9109513 p rotary/slider ctlin proc;
#P window setfont "Sans Serif" 14.;
#P comment 53 55 17 9109518 A;
#P window setfont "Sans Serif" 9.;
#N vpatcher 15 55 615 455;
#P window setfont "Sans Serif" 9.;
#N vpatcher 15 55 615 455;
#P outlet 84 73 15 0;
#P inlet 107 35 15 0;
#P inlet 74 39 15 0;
#P inlet 49 38 15 0;
#P connect 0 0 3 0;
#P connect 1 0 3 0;
#P connect 2 0 3 0;
#P pop;
#P newobj 50 139 180 9109513 p V;
#P newex 220 80 76 9109513 scrlt.util.octshift;
#P newex 220 110 23 9109513 _ C;
#P newex 135 80 76 9109513 scrlt.util.octshift;
#P newex 135 110 22 9109513 _ B;
#P newex 50 80 76 9109513 scrlt.util.octshift;
#P newex 50 110 22 9109513 _ A;
#P newex 50 50 266 9109513 route A B C;
#P inlet 50 30 15 0;
#P inlet 116 60 15 0;
#P inlet 201 60 15 0;
#P inlet 286 60 15 0;
#P outlet 50 163 15 0;
#P connect 4 0 5 0;
#P connect 5 0 7 0;
#P connect 7 0 6 0;
#P connect 6 0 12 0;
#P connect 12 0 0 0;
#P connect 3 0 7 1;
#P connect 5 1 9 0;
#P connect 9 0 8 0;
#P connect 8 0 12 1;
#P connect 2 0 9 1;
#P connect 5 2 11 0;
#P connect 11 0 10 0;
#P connect 10 0 12 2;
#P connect 1 0 11 1;
#P pop;
#P newobj 383 447 79 9109513 p octave shifting;
#P connect 25 0 26 0;
#P connect 26 0 27 0;
#P connect 27 0 4 0;
#P connect 4 0 36 0;
#P connect 26 1 27 1;
#P connect 37 0 0 0;
#P connect 0 0 38 0;
#P connect 39 0 41 0;
#P connect 41 0 43 0;
#P connect 43 0 40 0;
#P connect 40 0 31 0;
#P connect 31 0 0 1;
#P connect 40 1 32 0;
#P connect 32 0 0 2;
#P connect 13 0 14 0;
#P connect 14 0 5 0;
#P connect 23 0 24 0;
#P connect 24 0 15 0;
#P connect 41 1 42 0;
#P connect 42 0 43 1;
#P connect 40 2 33 0;
#P connect 33 0 0 3;
#P connect 14 1 6 0;
#P connect 24 1 16 0;
#P connect 14 2 7 0;
#P connect 24 2 17 0;
#P connect 14 3 8 0;
#P connect 24 3 18 0;
#P connect 14 4 9 0;
#P connect 24 4 19 0;
#P connect 14 5 10 0;
#P connect 24 5 20 0;
#P connect 14 6 11 0;
#P connect 24 6 21 0;
#P connect 14 7 12 0;
#P connect 24 7 22 0;
#P pop;
